Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/oper_sys/emerald/emrldsys.lha/Language/ExecTests/tinstream.m

Text File | 1990-08-31 | 499 b | 17 lines

import runtest from "RunTest"

const tinstream <- object tinstream
  const myTest == runtest.create[stdin, stdout, "tinstream"]
  process
    % each test looks like myTest.check[<boolean expression>, "<same exp>"]
    var c : Character
    var s : String
    c <- stdin.getChar
    myTest.check[c = 'T', "c = 'T'"]
    stdin.unGetChar[c]
    s <- stdin.getString
    myTest.check[s = "This is a line of stuff.\^J", "s = \"This is a line of stuff.\\^J\""]
    myTest.done
  end process
end tinstream